'录制宏 录制相对宏

If = then
elseif >= then
elseif <= then
elseif <> then
else
endif


for i=1 to 20

	if xx Then
	exit for
next

for each sht in Sheets
next

for each rng in Range("a1:a100")
next



Application对象 Workbook对象 Sheet对象 Range对象

新建Sheets.Add after:=Sheet2, count:=5
描述指定的表 Sheet1   Sheets(1)  Sheets("表的名字")
改表的名字 Sheet1.Name =  "新名字"
表的数量 Sheets.Count
复制表 Sheet1.Copy after:=Sheet2 
变量的连接 &

Application.DisplayAlerts = False
Range("A65535").End(xlUp).Row

Range("A1:A65535").AutoFilter field:=4, Criteria1="关键字"

Application.WorkSheetFunction.CountA("内容集合")
Application.WorkSheetFunction.Countif("内容集合", "关键字")

Application.WorkSheetFunction.VLookup("关键字", "内容集合", "返回的字段", "精确或模糊")
Left("字符串", "位置")
Mid("字符串", "位置", "长度")
Right("字符串", "位置")
DateSerial("年","月","日")





